home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / boot / magicscrip.lha / MagicScripts / RanWBPattern.sh < prev    next >
Encoding:
Text File  |  1995-01-15  |  1.1 KB  |  24 lines
  1. # RanWBPattern for ToolManager using CSH.
  2. # Can be used by DOCKs, APPICONs or CLI
  3. # $VER: RanWBPattern 1.0 15/1/95 Jonathan Benson
  4. #
  5. # Edit it to suit your requirements.
  6. # Faces1.pre, *.pre are presets saved by WBPattern
  7.  
  8. set _histnum  @rnd( 0 )  #  @mix uses the variable _histnum to generate its
  9.              # so called `random' selection.
  10. set _histnum  @strright( $_histnum 3 )
  11. # NOTE: Do not allow the following line to exceed it's current length.
  12. #       the randomness will be greatly reduced if you do.
  13. #       I don't know why.  Probably a limit on the function @mix.
  14. set WBPattern  @mix( Faces1.pre Faces2.pre MarbleBack.pre WalPaper.pre WalPaper5.pre WalPaper4.pre WalPaper7.pre )
  15. set WBPattern @strhead( " " $WBPattern )
  16. DH0:Prefs/WBPattern use DH0:Prefs/presets/$WBPattern
  17.  
  18. # Thanks to the following for CShell:
  19. #     Shell V2.04 (C)Copyright 1986, Matthew Dillon, All Rights Reserved
  20. #     Shell V2.04M-V2.07M by Steve Drew
  21. #     Shell V2.08MI, V3.xxA and V4.xxA by Carlo Borreo & Cesare Dieni
  22. #     Shell V5.xxL by U. Dominik Mueller
  23. #     Shell V5.20+ by Andreas M. Kirchwitz
  24.